#!/usr/bin/perl -w
#
require LWP::UserAgent;

my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->env_proxy;

# http://www.qiushibaike.com/groups/2/latest/page/2
# http://www.qiushibaike.com/groups/2/hottest/day/page/2

my $response = $ua->get('http://www.qiushibaike.com');

open FILE,">test.html";
if ($response->is_success) {
    print FILE $response->decoded_content;  # or whatever
}
else {
    die $response->status_line;
}
close FILE;
